<%
Dim DBConnection1

Set DBConnection1 = Server.CreateObject("ADODB.Connection")
DBConnection1.CursorLocation = 3
DBConnection1.ConnectionTimeout = 30
DBConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\www\fepace.com.br\db\FEPACE.mdb;Persist Security Info=False"
DBConnection1.Open

%>